home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / HyperTalk / LightSpeed HC XCMD kit / XCMD Interface.p < prev    next >
Encoding:
Text File  |  1987-11-11  |  1.3 KB  |  66 lines  |  [TEXT/PJMM]
  1. { Hypercard XCMD interface unit for Lightspeed Pascal }
  2.  
  3. { (c) 1987 Symantec Corp.  THINK Technologies Division }
  4.  
  5. { Adapted for use with Lightspeed Pascal from information provided }
  6. { by Apple Computer, Inc. }
  7.  
  8. UNIT XCMDIntf;
  9. INTERFACE
  10.     CONST
  11.  
  12.   { result codes }
  13.         xresSucc = 0;
  14.         xresFail = 1;
  15.         xresNotImp = 2;
  16.  
  17.   { request codes }
  18.         xreqSendCardMessage = 1;
  19.         xreqEvalExpr = 2;
  20.         xreqStringLength = 3;
  21.         xreqStringMatch = 4;
  22.  
  23.         xreqZeroBytes = 6;
  24.         xreqPasToZero = 7;
  25.         xreqZeroToPas = 8;
  26.         xreqStrToLong = 9;
  27.         xreqStrToNum = 10;
  28.         xreqStrToBool = 11;
  29.         xreqStrToExt = 12;
  30.         xreqLongToStr = 13;
  31.         xreqNumToStr = 14;
  32.         xreqNumToHex = 15;
  33.         xreqBoolToStr = 16;
  34.         xreqExtToStr = 17;
  35.         xreqGetGlobal = 18;
  36.         xreqSetGlobal = 19;
  37.         xreqGetFieldByName = 20;
  38.         xreqGetFieldByNum = 21;
  39.         xreqGetFieldByID = 22;
  40.         xreqSetFieldByName = 23;
  41.         xreqSetFieldByNum = 24;
  42.         xreqSetFieldByID = 25;
  43.         xreqStringEqual = 26;
  44.         xreqReturnToPas = 27;
  45.         xreqScanToReturn = 28;
  46.         xreqScanToZero = 39;
  47.  
  48.     TYPE
  49.  
  50.         XCmdPtr = ^XCmdBlock;
  51.         XCmdBlock = RECORD
  52.                 paramCount : INTEGER;
  53.                 params : ARRAY[1..16] OF Handle;
  54.                 returnValue : Handle;
  55.                 passFlag : BOOLEAN;
  56.  
  57.                 entryPoint : ProcPtr;    { to call back to HyperCard }
  58.                 request : INTEGER;
  59.                 result : INTEGER;
  60.                 inArgs : ARRAY[1..8] OF LongInt;
  61.                 outArgs : ARRAY[1..4] OF LongInt;
  62.             END;
  63.  
  64. IMPLEMENTATION
  65.  
  66. END.